zjisteni dostupne sirky pro sloupce StringGridu s posuvnikem
Otázka od: Vlastimil Burian
18. 9. 2004 12:32
nemohu vyresit jak presne zjistit dostupnou sirku pro sloupce StringGridu
kdyz ma vertikalni posuvnik - prakticky by stacilo "neco" odecist z sirky
komponenty .. ale Windows mohou mit sirku posuvniku nastavenou ruzne a tak
je nutne ji zjistit ... ale JAK ?
(napr. na mem pocitaci pak odpovida StringGrid.Width - 25)
Odpovedá: Lebeda David
20. 9. 2004 7:03
> nemohu vyresit jak presne zjistit dostupnou sirku pro sloupce
> StringGridu kdyz ma vertikalni posuvnik - prakticky by stacilo "neco"
> odecist z sirky komponenty .. ale Windows mohou mit sirku posuvniku
> nastavenou ruzne a tak je nutne ji zjistit ... ale JAK ? (napr. na mem
> pocitaci pak odpovida StringGrid.Width - 25)
Ahoj,
nemam momentalne po ruce Delphi, ale zkusil bych se podivat na
GetSystemMetrics. Treba to tam bude.
David Lebeda
Odpovedá: Ing. Jiri Sokol
20. 9. 2004 10:23
> Od: Lebeda David <david.lebeda@comarr.cz>
> Datum: 20.09.2004 08:05:38
>
> > nemohu vyresit jak presne zjistit dostupnou sirku pro sloupce
> > StringGridu kdyz ma vertikalni posuvnik - prakticky by stacilo "neco"
> > odecist z sirky komponenty .. ale Windows mohou mit sirku posuvniku
> > nastavenou ruzne a tak je nutne ji zjistit ... ale JAK ? (napr. na mem
> > pocitaci pak odpovida StringGrid.Width - 25)
>
> Ahoj,
>
> nemam momentalne po ruce Delphi, ale zkusil bych se podivat na
> GetSystemMetrics. Treba to tam bude.
>
> David Lebeda
>
Ahoj.
Mozna jsem mimo, ale nestacilo by StringGrid.ClientWidth ???
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol@seznam.cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5.1
programator amater
Odpovedá: horky@cominn.cz
20. 9. 2004 15:34
> From: Vlastimil Burian [mailto:vlastax.b@seznam.cz]
> ale Windows mohou mit sirku posuvniku
> nastavenou ruzne a tak
> je nutne ji zjistit ... ale JAK ?
{ Vyska horizontalniho scrolbaru }
function GetWidthHorizontSBar: Integer;
begin
Result := GetSystemMetrics(SM_CYHSCROLL);
end;
{ Sirka svisleho scrolbaru }
function GetWidthVertikalSBar: Integer;
begin
Result := GetSystemMetrics(SM_CXVSCROLL);
end;
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky@cominn.cz]